home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / LogoMation 1.1.2 / Examples / Rutland Middle school, Canada / trees / trees
Encoding:
Text File  |  1996-02-18  |  993 b   |  78 lines  |  [UVtx/UVtl]
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Up
  9. Right 90
  10. Forward 75
  11. Left 90
  12. Down
  13. Width 5
  14. Backward 145 
  15. Left 90
  16. Width 4
  17. Color 36863,24132,10057
  18. Forward 75
  19.  
  20. Function  branch()
  21.     Width 2
  22.     Color 4280,54271,6059
  23.     Forward 60
  24.     Backward 60
  25.     Forward 25
  26.     Left 45
  27.     Forward 15
  28.     Backward 15
  29.     Right 90 
  30.     Forward 15
  31.     Backward 15
  32.     Left 45 
  33.     Forward 25
  34.     Left 45  
  35.     Forward 15
  36.     Backward 15
  37.     Right 90
  38.     Forward 15
  39.     Backward 15
  40.     Left 45 
  41.     Forward 15
  42.     Backward 65
  43.     Color 0,0,0
  44.     Width 3
  45.     
  46. Function tree()
  47.     Color 36863,24132,10057
  48.     Width 2
  49.     Right 75
  50.     Repeat 7
  51.         branch()
  52.         Left 25
  53.         
  54. tree()
  55. Up
  56. Goto 0,-75,90
  57. Down
  58. Width 4
  59. Color 36863,24132,10057
  60. Forward 75
  61. tree()
  62.  Up
  63.  Goto 0,-75,0
  64.  Down
  65.  Width 5
  66.  Forward 145
  67.  Left 90
  68.  Width 4
  69.  Color 36863,24132,10057
  70.  Forward 75
  71.  tree()
  72. Sound "Indigo" 
  73.         
  74.  
  75.  
  76.  
  77.     
  78.